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00 ;++ 

00 

38 ; Facility: 

33 SUMSLP utility 

BS ; Environment: 

00 User mode 

00 

38 ; Author: 

38 R. Newland 18-Apr-1979 

4 Modified by: 

00 v03-001 pscere Benn Schreiber 25-F EB-1984 
bo Use fnm rather than dnm for SYSSERROR 
00 ;-- 
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v04-000 DECLARATIONS $ 
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Define CLI offsets 
RMS FAB definitions 
RMS RAB definitions 
RMS NAM definitions 
RMS XAB definitions 
SUM control block offsets 
SUMSLP general definitions 


Form-feed character 


Force data allocation to be global 
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DATA 16-SEP-1984 :12:54 VAX/VMS Macro V04-00 Pa 
v04-000 DATA g- att 86:48:32 SUA SRCIOATAcMARSY ” b 
66 3 -SBTTL DATA | 
0000 : ; -PSECT SUMSRW_DATA, NOEXE, LONG | 
0 sf $DEF § SUMSGL_CLIADOR .BLKL 1 ; CLI call back address | 
4 if SDEF SUM$GQ_CMDLINE .BLKQ 1 ; Command Line descriptor 
0 73 SDEF SUMSGL_FLAGS -BLKL 1 ; Control flags 
1 74 SDEF SUMSAT_AUDIT -BLKB 16 3 Audit trail 
00000021 75 -BLKB 1 ; Separator 
1 4 SDEF SUMSAT_LINENO .BLKB ¢ : Line number 
7 77 SDEF SUMSAT_LINENE .BLKB ; Separator 
3 £8 SDEF © SUMSATIBUFFER ©. BLKB SSLSBUFSZE ; Buffer 
127 0 $DEF = SUMSAX_CBL -BLKB SUM_K_BLN ; SUM control block 
178 1 SDEF SUMSGL_UPDATES .BLKL 1 ; Update files List address 
128 5 $DEF SUMSAT_INPUTFN .BLKB SSLSFILSZE ; Input file name buffer 
Bie8 4 SDEF SUMSAT_OUTPUFN . SSLSFILSZE ; Output file name buffer 
01C 5 SDEF SUMSAT_LISTFN -BLKB SSLSFILSZE ; List file name bufer 
0208 § SDEF RHB SSLSRHBSZE ; Record header buffer 
8 14 SDEF UMSGW_PAGENO .BLKW 1 ; Page number 
8 8 SDEF SUMSGW_PAGESZ .BLKW 1 ; Page size 
021 89 SDEF SUMS$GW_LINENO -BLKW 1 ; Line number 
aE 
8 7 38 + RMS blocks 
0 1A 34 ‘ .ALIGN LONG 
1C 96 SUMSAX_INPUTFAB: : : Input file FAB 
1¢ 97 SFAB FAC = GET - 
1¢ 98 NAM = SUMSAX_INPUTNAM = 
0 H: 100 XAB = SUMSAX_INPUTXAB 
6 6c 101 SUMSAX_INPUTXAB: : : Input file extended attribute block 
0 sf 19 $XABDAT : for creation date/time 
3 9 104 SUMSAX_INPUTNAM: : ; Input file NAM block 
029 105 SNAM ESA = SUMSAT_INPUTFN - 
029 1 $ ESS = SSLSFICSZE - 
8 9 1 RSA = SUMSAT_INPUTFN - 
, ! 8 RSS = SSLSFICSZE 
F 196 SUMSAX_INPUTRAB: : ; Input file record access block 
F 111 SRAB FAB = SUMSAX_INPUTFAB - 
F \1¢ UBF = SUMSAT BUFFER - 
F 11 USZ = SSLSBUFSZE - 
f 114 MBF = 4 - 
re BF ROP = RAH 
C 19 SUMSAX_OUTPUF AB: : : Output file FAB 
C 118 SFAB FAC = PUT - 
ae i RAT = CR - 
C 120 FOP = OFP - 
© San NAM = SUMSAX_OUTPUNAM 
c  tdé2e 
| 


DATA 16-SEP-1984 02:12:54 VAX/VMS Macro V04- Pa 
v04-000 DATA Toe 7 86:38:32 SUA SRCIDATA.MARST— - 
. te arteries“ wees ; Output file NAM block 
C 124 NAM ESA = SUMSAT_OUTPUFN - 
... Bae ESS = SSLS$FICSZE - 
Sito § RSA = SUMSAT_OUTPUFN - 
. ¥ RSS = SSLSFICSZE - 
ec 8 RLF = SUMSAX_INPUTNAM 
EC 130 SUMSAX_OUTPURAB: : ; Output file record access block 
s. ta $RAB FAB = SUMSAX_OUTPUFAB - 
8 6 oF $ RBF = SUMSAT_BUFFER = 
ee MBF = 4 = 
O 6 1 ¢ ROP = WBH 
4 1 3 SUMSAX_LISTFAB: : ; List file FAB 
430 1 $FAB DNM = <.LIS> - 
$38 138 FAC = PUT = 
4 139 RAT = CR = 
ok 140 FOP = OFP - 
ott re NAM = SUMSAX_LISTNAM 
0480 128 SUMSAX_LISTNAM: : ; List file NAM block 
0480 144 SNAM ESA = SUMSAT_LISTFN - 
0480 145 ESS = SSLSFICSZE - 
0480 146 RSA = SUMSAT_LISTFN - 
0480 147 RSS = SSLSFICSZE - 
0480 148 . RLF = SUMSAX_INPUTNAM 
04EO0 150 SUMSAX_LISTRAB: : ; List file record access biock 
BEES 13) SRAB nor ° een Drstr ee - 
se secon 
524 155 SUMSAX_TERMFAB:: ; Terminal file FAB 
524 136 SFAB FNM = <SYSSERROR:> - 
524 15 FAC = PUT = 
2 ? 138 RAT = CR 
ba76 160 SUMSAX_TERMRAB: : ; Terminal file RAB 
0574 = 161 SRAB FAB = SUMSAX_TERMFAB 
ie 
588 164 SUMSAQ_MSGDES:: ; Message descriptor 
000005¢4'00000040 ec 199 -LONG 64,SUMSAT_MSGBUF 
C 189 SUMSAW_MSGLEN: : ; Return message length 
900005¢2 5¢ 198 -BLKW 1 
000005¢ 43 19 -BLKW 1 
até 171 SUMSAT_MSGBUF : : ; Message buffer 
00000604 4 Ze 4 -BLKB 64 
604 74 : Title Line 
4 1% SUMSGQ_TITLEDS:: ; Descriptor to date/time 
00000649° 00000014 ? 2 iy i -LONG 20,SUMSAT_TITLEDT 
60C 135 SUMSAT_TITLE:: 
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PSECT name Allocation PSECT No. Attributes 
, ws. 00000000 8? 00 ( 0.) NOPIC  USR 
SABS$ Banner B ( 29.) 01 ¢ 1.) NOPIC  USR 
SUMSRW_DATA 0000071 ( 1815.) ; ( §°3 NOPIC USR 
SRMSNAA QOOOO00E <¢ 14.) ( -) NOPIC  USR 
bee ee meee ne ee cme nee eee eee 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 00 200 :00.07 00:00:00.36 
Command processing 128 00:00:00.58 BT es 
Pass 270 00:00:09. 30 SE 95 
Symbol table sort ° Se So i Ret 1.48 
Pass 5 8:08: hel Se 
Symbol table output 13 00:00:00.11 eS -12 
Psect synopsis output 3 00:00:00.03 0:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 508 00:00:12.65 00:00:28.93 


The working set Limit was 1350 pages. 


47097 bytes (92 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 762 non-local “ 0 local symbols. 


207 source Lines were read in Pass 1, producing object records in Pass 
1 pages of virtual memory were used to define 26 macros. 


Macro Library name 

-$255$DUA28: CSUM.OBJJSUM.MLB; 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 2 


1009 GETS were required to define 22 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DATA/OBJ=OBJ$:DATA MSRC$:DATA/UPDATE=(ENHS$: DATA) +LIB$:SUM/LIB 
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SUM. SRCJDATA.MAR; 
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